home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Czarina.dxr / Internal_6_stock cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  446 b   |  16 lines
  1. property spriteNum
  2. global stock, waste
  3.  
  4. on mouseDown me
  5.   if stock.getcardcount() > 0 then
  6.     puppetSound(3, member("deal card", "100GPak Generic SFX"))
  7.     sprite(42).member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
  8.     stock.cards.deleteAt(1)
  9.     waste.addCard(42)
  10.     if stock.getcardcount() = 0 then
  11.       sprite(spriteNum).member = member("empty", "playing cards")
  12.       checklose()
  13.     end if
  14.   end if
  15. end
  16.